home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cobol.arc / ADDR.CBL next >
Encoding:
Text File  |  1985-08-26  |  1.6 KB  |  66 lines
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID.
  3.     ADDRESS-FILE.
  4. ENVIRONMENT DIVISION.
  5. CONFIGURATION SECTION.
  6. SOURCE-COMPUTER. Z80.
  7. OBJECT-COMPUTER. Z80.
  8. INPUT-OUTPUT SECTION.
  9. FILE-CONTROL.
  10.     SELECT ADDR-FILE ASSIGN ADDR.FIL.
  11.     SELECT NADDR-FILE ASSIGN NADDR.FIL.
  12. DATA DIVISION.
  13. FILE SECTION.
  14. FD ADDR-FILE.
  15. 01 ADDR-RECORD.
  16.   02 NAME PIC X(30).
  17.   02 SCHOOL PIC X(30).
  18.   02 ADDRESS PIC X(30).
  19.   02 CITY PIC X(15).
  20.   02 STATE PIC X(5).
  21.   02 ZIP PIC X(5).
  22.  
  23. FD NADDR-FILE.
  24. 01 NADDR-RECORD.
  25.   02 NNAME     PIC X(30).
  26.   02 NSCHOOL   PIC X(30).
  27.   02 NADDRESS  PIC X(30).
  28.   02 NCITY     PIC X(15).
  29.   02 NSTATE    PIC X(5).
  30.   02 NZIP      PIC X(5).
  31. WORKING-STORAGE SECTION.
  32. 01 END-OF-FILE PIC X VALUE 'F'.
  33. 01 NAMES-CONT PIC X VALUE 'Y'.
  34. PROCEDURE DIVISION.
  35. MAIN-PARA.
  36.    OPEN INPUT ADDR-FILE.
  37.    OPEN OUTPUT NADDR-FILE.
  38.    READ ADDR-FILE END MOVE 'T' TO END-OF-FILE.
  39.    PERFORM READ-OLD-FILE UNTIL END-OF-FILE EQUAL 'T'.
  40.    PERFORM ADD-NEW-NAMES UNTIL NAMES-CONT EQUAL 'N'.
  41.    CLOSE ADDR-FILE.
  42.    CLOSE NADDR-FILE.
  43.    STOP RUN.
  44.  
  45. READ-OLD-FILE.
  46.    MOVE ADDR-RECORD TO NADDR-RECORD.
  47.    WRITE NADDR-RECORD.
  48.    READ ADDR-FILE END MOVE 'T' TO END-OF-FILE.
  49.  
  50. ADD-NEW-NAMES.
  51.    DISPLAY 'INPUT NEW NAME'.
  52.    ACCEPT NNAME.
  53.    DISPLAY 'INPUT NEW SCHOOL'.
  54.    ACCEPT NSCHOOL.
  55.    DISPLAY 'INPUT ADDRESS'.
  56.    ACCEPT NADDRESS.
  57.    DISPLAY 'INPUT CITY'.
  58.    ACCEPT NCITY.
  59.    DISPLAY 'INPUT STATE'.
  60.    ACCEPT NSTATE.
  61.    DISPLAY 'INPUT ZIP'.
  62.    ACCEPT NZIP.
  63.    WRITE NADDR-RECORD.
  64.    DISPLAY 'TO CONTINUE TYPE Y ELSE TYPE N'.
  65.    ACCEPT NAMES-CONT.
  66. ▒╥mME═┴╔═f*ü-    ^#Vδ"q-*ü-    N#F┼*ü-##N#F ═h!"o-*ü-##N#F PY!o-═B-┌±═█2u-■